<!--#include file="Librerias/mssql-ds.dll" -->
<%
seleccion = request.QueryString("select")
opcion = request.QueryString("opcion")

	ComboConstruido = "<select name=""actividadeconomica"" id=""actividadeconomica"" class=""TextoTam3"" onChange=""cargaSubsectorialActividadeconomica(this.id)""><option value="""">-- Seleccione --</option>"
	sSQL = ""
	sSQL = sSQL & " SELECT CodSectorial, CodSectorialDuf, DescClasificadorSectorial"
	sSQL = sSQL & " FROM _ClasificadorSectorial"
	sSQL = sSQL & " WHERE (Nivel = 3) AND (CodSubSec = '"& opcion &"')"
	MatrizCmb = MatrixBD(sSQL, 1)
	If VarType(MatrizCmb) = 8  then
		QRegCmb = -1
	Else
		QRegCmb = UBound(MatrizCmb, 2)
	End If
	For i = 0 To QRegCmb
		ComboConstruido = ComboConstruido & "<option value='" & MatrizCmb(0, i) & "'"
		ComboConstruido = ComboConstruido & ">"& MatrizCmb(1, i) &" - "& MatrizCmb(2, i) &"</option>"
	Next				
	ComboConstruido = ComboConstruido & "</select>"
	response.ContentType = "text/html; charset=iso-8859-1"
	response.write ComboConstruido
%>